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This note describes a system which compiles 
various forms of LISP lists and arrays Into 
display commands for the DEC 340 display, 
end provides supporting functions for scaling, 
for moving elements In a display* for pot 
control of certain displays* and for adding 
elements to and removing elements from the 
display. 
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DlSrLAY PUSCTIQU3 lu LIbr ha:* I 

IfcltfliMJCTXOJi 

In thi exauples given, arcunents In lo*er case ere -uu.y 
ar?u,-i,ent5i the user's arguments era to be suostituteo. iie ^y^bol ^ 
preceding a character signifies e control character* anc „ siartifles 
the character "space 11 . 

An cXPH subset cf this system is available, aceouate lor 3.t.all 
cisplays* A SUdk version of these disolay functions, written in 
MICA5 with control routines in interpretao Llof, is available in a 
special version of LI5P called L-Liir*. As display primitives, the 
system compiles points, ooen anc closed curves, ano text, functions 
hanule input lists and arrays in a variety of tons. Special case 
primitives such as ccoroinate axes, box, anc cross ore useful for 
•baking graphs and figures for reports. 

The system proviaes a scaling ana translation (no rotation) from 
a rectangle in the acuiain to a rectangle in the ranee, at the ti&e of 
carpilino. Only yrery wua/ scaling is available in the hardware 
(vectors and text scale oy powers ol two); this best solution is to 
ra-coiipile the list with rsvisec scalinc. Several Junctions aid in 
choosing scale. Xost aisolays can be translated within the limits of 
the aevlce, eitr:er with absolute coordinates, or under pot control. 

individual elements of a display can oe aoded or removed* nhole 
displays can Oe saveo, copied, ano restored* A convenience feature 
is that renoval of elements can be oone oy blinkinc each element in 
turn, ano interrogating the teletyoe. 
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The system tiepenos heavily on dynamic array allocation anri 
automatic garbage collection of arrays. LISP has ceen aoniiiea tc 
incluae this feature. In normal operation of the cisplay systen, 
elements which are not oeing displayed or saved, or otherwise 
protectee, are carbage collected. The user may provide the array in 
50&6 cases, or the name of the array, ine system norrcallv provides 
necessary arrays as a convenience. A function for ceneratinc 
j.neu,onic atoms is provloed* bxcept when the user provides the array H 
exact lengths of displays are caiculatea oefore arr&y allocations. 
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UPEaATWG THc DISPLAY 

There are only two steos in initiating a oispleya 

1) type "r to select the display device, 

2) A* afce a function call to create a Display array. 

ihis section aims to sfcetch out the general classes cl junctions 

which are describee in detail in later sections* Ihe naues of oil 

functions in the display system &eiin with the letter J. ihe conxanos 

to turn on or turn off the disolay are control characters which can 

be typed at any ti^e to EVAL (even in the miudle of an atom), lh=se 

commands are handed in interrupt Jicce and take effect i^eciately t 

so that they can oe usee even when Lli^P is running* 

Aith display output selectee, elements are cisplayeJ as seen as 

they are created. These are reullv two operations, compiling display 

coci^anos (In a LISP array) for the scope, and accinc the created 

array to the list ct arrays on olsolay. Two lists contain the 

elements of the oisplay. DISPLAY contains the atoms whose arrays are 

on display (for the oenefit of humans) anO DlSLiST contains their 

array properties, whicn the liS system uses for cisplay. 

DISPLAY l£Xi 
.«)Le *Q3E 

1, lo turn on tne ai splay A r *H 
To turn off the oisplay A r *Y 

2. To create display arrays and add to the arrays beinn dispiayeo, 
the function usee is specified cy tne type of oisplay oesirec (point, 
vector, or text) ana the type of Input data (list or array of nuwoisr? 
or dotted oairs or a tons which evaluate to numbers cr dottec pairs), 
ihe follow'! na is a list, without details, of available functions. 
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rage A 



DISPLAY 


TYi-e 


IEX1 




OPEN CUtfVE 


CUibcD 


CUBVE 


80 INI 




COX 




AXES 
CROSS 





FUNCTIONS 

DiEXT 

OIEXXE 

DCtiV 

DLV1,DLV2 

0AV1.DAV2 

DA2VI 

DCHVC 

DUH.DLV2 

DAVl,DAVa 

UA2VI 

DPTL 

PL?I,DLP2 

D AW 1, DAP 2 

DEOX 

uUnlO (under pot control) 

DAXES 

DCROSS 

DP1S (under pot control) 

i.lhese functions panlpulata displays, adding elements to or deleting 
elements froti a display, or saving anc restcrlno displays. 

DISPLAY, DI5PLAYE 

DCLEAH, DCLEAhE 

DCOPY 

DSAVc 

DC El 

Another class ol functions consists or those which n.ove, or 

manipulate individual elegants of a display. 

□MOVE 

DP1S 

DBRIGHI 
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POINT AND VfcCTOft DISPLAYS 

rthat basic Displays might be useful? fte ir.icht want to display a 

set of points, or a curve made of straight line serments connectina 

points. A usual form of aisplay input might be a list of dottso 

pairs of x ana y coorainates, or a list of such lists. For this 

usual form there are three basic functions* 

DPTL EXPfc oisplays a set of ooints, 

DCBV EXPH oisplays open curves, 

XrtVC &XPH oisolays closed curves. 

For example, (DHL list) or (QChV list) are typical uses. 

f»e miqht went axes, a box v or a cross. The examples are* 

(DAXES (LIST (al . a?) (ul . u2>>) 
(DBUX (LIST (al . a2) (ul . u2))J 
(DCwI)SS nair-e (x . y) siza) 

where (ai . a2) Is the lower left corner of a rectangle aligned along 

the cooroinate axes and (ul . u2) is the upper rinht corner. 

ihere are a number of other input options for which functions 

exist in the SUbh version, rte could have list or array input, rie 

might want to graph a set of values (numbers) evenly spaced along an 

axis. In that case, the x coordinate would be calculated by scaling 

the indices 0,1,2, . . n. The functions are named Ly acronyms which 

correspond to the cptionsi 

A or L list cr array Input 

P or V point or vector (curve) display 

I or 2 numbers (graph) or aotted pair input* 

List Input may contain atoms which evaluate to dotted pairs, provided 
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the flag DATUM is non-nil. The flag should otherwise be nil to avoid 
the associated cost of this feature. 



LSUbh 



bUch 



DLVI 
DLV5 
DLH 
DU-2 

DAV1 
DAV2 
DAP1 
OAF 2 



Display 
Display 
Display 
Display 

Display 
Display 
Display 
Display 



List 
List 
List 
List 

Array 
Array 
Array 
Array 



of Vectors (numbers) 

of Vectors (dotted pairs 

of Points (numbers) 

of Points (dotted pairs) 



of 
of 
of 
of 



Victors 
Vectors 
Points 
Points 



(numbers) 
(x t ,y pairs) 

(numbers) 

(x,,y pairs) 



DA2V I Display 2-diJi Array of Vectors (nunbers) 

Some examples of calls ore* 
(DLVI list) 
(DLVI list 'arrayl) 



(DAVI 
(DAVI 
(DAVI 
(DAVI 
Array out, 
and greate 
be given, 
array. 

With 

closeo cur 

likewise f 

lor closed 

A typ 

(DA2V 

over the t 

xO=al 

y0»a2 

x*xo+ 

y*yO+ 



arrayin arrayout min iuax) 

arrayin max) 

arrayin) 

arrayin rain u*ax). 
min, and max are optional arcunents. Min and aax are least 
st indices for the input array, if i&in is given, max must 

The default casas for tuin and max are the limits of the 

the functions for list input, DLVI, DLV2, OLPI, and DLH2* 
ves can be generated by the calls (DLVI (LCC list)) and 
or DLV2, DLP1« and DLP2. At present, no provision is marie 

curves for those functions with array input, 
leal call for 0A2V I would be * 

l ^(arrayin) (al . a2) (nl . n2) ((ul . u2) . (vl - v2))> 
wo-dimensional grid oiven by* 
+n2*vl I outer loop along vector (vl . v2) 
+n2*v2 

nl*ul ; inner loop along vector (ul .u2) 
nlm2. 
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SCALING 

Points are scaled if L5CALE is non-nil. The two coordinates uffy oe 

floating point or fixed point LISP numbers. If EAIOti is non-nil t 

non-numeric atoius are evaluated to dotted pairs. Scalinc anc display 

art e capping froji scene two-dimensional rectancuiar CO MAI ft into tne 

two-dimensional rectangular iiANGE (scope c coral nates) . ih& Units of 

scope coordinates are (0 • 0) to (1177 * 1777). 

Scaling corresponds to the t ojlow tnn operations! 

DSCALE ■ (sx . sy) f scale 

D0RG3 ■ (xo • yc) lorigin of the DD£AIK 

OORGft - Ixr . yr) icrioln of the RANGE 

u=sx (x-xd)+xr 

v-sy (y-yci)+y r. 

The free variables which control the scalina are* 

DOMAIN RANCc 

DDkGD OORGrf orioin of mappino 
DLOhD DLOhR lower left corner 
DUPC DUPR upper right corner 

DSCALE 

Two utility functions aid in determining scales 

OOMAINL EXPK oeteruiines the extreme coordinates of a list cf 

dotted pairs. 
DSCALE cXPri determines the scale, niven domain and 

ranoe variables- 
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FUNCTIONS FOR MANIPULATING DISPLAY LISTS 

>." want to bo able to add elements to or delete elements frolu 

DISPLAY end DISLIST t to save^ copy, and restore display lists. A 

slight complication should oe kept in minoi *aost arrays are aiohs 

which are not on the 03L1ST, They cannot be r&t&rrc6 to directly by 

naming thera, but dust be referred to oy soraetftlno *hicft points to 

then* That is uost troublesome In deleting elements. A special node 

in uCLEAR blinks each element in turn, preservinc or deleting as 

instructed by the user in a tejetyoe control loop, 

DCLEAR FEXPR 

(DCLeAiO removes all arrays 

(DCLEAR a b c) removes nameb arrays 

(DCLEAR TTY) proceeds down the list DISPLAY, tlinUnc 

the current srrav. leletypa cofrmoncs erei 

u_ quit 

T_ proceed and preserve the array 

K_K_ kill the current array. 

DCLtARE EXPR evoluotes Its argument and rejioves a sincle array. 

DISPLAY FEXPR 

(DISPLAY a b c) adds the atou,s to DISPLAY and their 
arrays to DISLIST. 

DISPLAY EXPR 

evaluates its argument and aads a single array. 

DCOPY FEXPfi 

(OCOPY worla) 

(DCUPY) 

conses a copy of DISPLAY onto DSAVE with the scene name world 

tor a CENSYfc if no name Is clven) . 

DSAVE FEXPR 

(D5AVE worlo) 

(DSAVE) is equivalent to (UCOPYXDCLHAIi). 
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DOET PEXPft 

(DGfcT worlc) 
(DG&TI 

appends the saved scene (or all scenes if no nscie is oiven) 
to DISPLAY. 



DISPLAY FUNCTIONS IN LISP Page 10 



DISPLAYING TEXT 

The simplest Diode of text display uses the display like a 
teletype, as a character output device. Material printed goes to the 
scope as to a teletype. The control characters *N and *Y turn text 
output on and off, respectively. Text moae and cisplay jtoae are 
incompatible! to label displays, other mooes must be used* 

The DTEXT display call specifies a line of text (provices for nc 
carriage return), with optional argument for vertical alian&ent, and 
optional absolute position. Pot control (pots 146*147) is used in 
aosence of an absolute position. 

DTEXT FEXPR 

(DIEXT (line of text) Y p) 

(OTEXT (line of text) p) 

(DTEXT (line of text)) 

(DTEXT (line of text) Y> 
If the second argument is Y, the text is displayed vertically, if 
not, the second argument is taken as a position (dotted pair p). If 
there is no position specified, the text is put under control of pots 
146 and 147; T— terminates pot control, 

DTEXTE EX PR 

(DTEXTE '(line of text) T p) 

(DTEXTE '(line of text) NIL JUL) 
This form evals its arguments! if the second argument is non-nil, the 
line is displayed vertically. If the third argument is non-nil* it 
is taken as a position, otherwise position is under pot control as in 
DTEXT, 

The other i^eans of text display is compatible with point and 

vector displays anc provides carriage return as in PRINT. The first 

step is to allocate and initialize the array for text! 
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(AfcfiAY name NIL lenqth) 
CDIS1NI 'na*e> 

Text can oe added incrementally by* 

(DISAD 'name flag 'abd 

7he second argument should be T or AIL depending on whether PiilNI or 

PHIMC type output la desired, rosltioninp is left to the user. Hie 

byte pointer is stored in the Jest word of the array. 

DISINI SU3R 

(DISINI 'name) 

initializes the array for character mode output. 

DISAD suea 

(DISAD 'name flag '(text to be added)) 
Appends the s-expression third argument to the text 
in the array naae in the print mode specified by 
the second argument. 

DISCN7 (display character count) functions as CHfiCT does 
for PRIWT. 
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OUTPUI TO THE PLOTTER 

Any display can be plotted witn the coamand (uPUiD. which turns 
the paper and plots the current display. Thus, the whole dispjay 
apparatus Is available for plotting. 

for special uses, complete control of the plotter is available 
with the cofottands (PLOT n), where the argument n indicates a 
character, pen up, pen down, etc. (CHAR PLOT, AI xaao 12:), A;« 5* 
Specinerl THE CALCOMP PLOTTER IN T3 AND LISP, Al memo 135, ,V\ 5. 
SpecinerK 
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MOVING DISPLAYS AND POT CONTROL 

To move an array with a point position, executes 

(DHOVE x y onaice) 
where dneme is the name of a display object. 

lo determine a rectangle (aligned with the x-y axes) in scopo 
coordinates under pot control, we execute (CGrtIu)I_ where 1_ 
terminates. 

he can ijiove jnost arrays (but net all arrays) under pot control 
by using (DPTS a) where a is an array. If we call (DPTS KID we 
control a cross on the screen* he can locate points in the oisplay 
by typing In names to DPTS which marks the spots with Crosses, named 
after the atoms typed in, and sets the values of the atoms to the 
location in scope coordinates. Such a usage would bei 

(DPTS NIL)a_0_O_ 

where T_ terminates. 

DPTS EXPR 

moves certain display arrays on the scope, under control of 
pots 146 and 147. If the argument is nil, the array moved 
is a cross. The following s-expressions are corcurandsJ 

f_ terminate and return 

FINE- enter a fine control rrode centering aroung the current 

location 
C()ARSE_ resume the coarse position ^odei the point jiey shift 

drastically for obvious reasons. 
atra*_ the atotu is given an array, into which a cross is put, 

and whose value is the current location (dotted pair). 

The cross is left at the current location. 
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UTILI1Y FUNCTIONS IN DLISP 

uLISP contains sane standard utility functions* 

-a e 

SIN arg in radians, 10 < x < 10 

COS same 

ATAN (ATAN Y X) computes arctan y/x 

SORT 

EXP exp base el arg -63 < x S3 

-38 3c 

LOG leg base el org 10 < x < 10 
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EXAMPLES 

The following Is an example of a program which uses the display 
to show the successive stages of analysis* 

(IDC r) 

(EDGES) 

(COND (SHOW (DCLfcAR) (SHOftENCS) 

(DTEXT.E '(ENDS J I.'IL UPPf))) 

(COND (PLOT (DPLOT))) 

where the function MUtHbMub l* "eflneu asi 

(UtfHMIK bMlHENCS (LAMBDA () (PH)0 {A 3) 
(MAPC (FUNCTION (LAMBDA (X) 
(OOICD ((?ETC A (GET X (QUOTE CORNERS ))) 
(t>fciu p CCONS A D)))) 

)) SEGMENTS) 
(DCRV 6) 

)> fcXKK). 
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AVAILABILITY 

The two forms are available as* 

cXPR (UHLAL D1S EXPtf GOV.) 

SUdR DLISP*H 

(UHEAD DIS 5U3R COM). 

rurther implementation is invited. 

dome changes and simplifications are planned* hevised versions 
of this description are to oe found on the user directory »IttrO« on 
the IIS system. 



